-- card: 40171 from stack: in.5
-- bmap block id: 11473
-- flags: 0000
-- background id: 3858
-- name: SCSIInfo
----- HyperTalk script -----
on CloseCard
  put empty into cd fld "ids"
  put empty into cd fld "SCSI list"
  pass CloseCard
end CloseCard

on HideObjects
  hide cd fld "label"
  hide cd fld "SCSI list"
  hide cd fld "ids"
  hide cd btn "try it!"
end HideObjects

on ShowObjects
  show cd fld "label"
  show cd fld "SCSI list"
  show cd fld "ids"
  show cd btn "try it!"
end ShowObjects


-- part 4 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=7 top=103 right=119 bottom=238
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: label


-- part 2 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=82 top=292 right=326 bottom=175
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: Try It!
----- HyperTalk script -----
on mouseUp
  global errGlobal
  put empty into cd fld "SCSI list"
  put return into cd fld "ids"
  set the scroll of cd fld "SCSI list" to 0
  set the scroll of cd fld "ids" to 0
  repeat with idNdx = 0 to 6
    put SCSIInfo(idNdx, "noDialog:errGlobal") into SCSIdata
    if errGlobal ≠ empty then
      answer "Error:" && errGlobal
      put empty into errGlobal
    else if SCSIdata ≠ empty then
      put SCSIdata & return & return after cd fld "SCSI list"
      put idNdx & return & return & return & return & return after cd fld "ids"
    end if
  end repeat
end mouseUp




-- part 3 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=11 top=117 right=288 bottom=67
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: ids
----- HyperTalk script -----
on mouseEnter
  set the scroll of cd fld "scsi list" to the scroll of me
end mouseEnter

on mouseWithin
  set the scroll of cd fld "scsi list" to the scroll of me
end mouseWithin

on mouseLeave
  if the short name of this cd ≠ "SCSIInfo" then exit mouseLeave
  set the scroll of cd fld "scsi list" to the scroll of me
end mouseLeave



-- part 1 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=50 top=117 right=288 bottom=254
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: SCSI list
----- HyperTalk script -----
on mouseEnter
  set the scroll of cd fld "ids" to the scroll of me
end mouseEnter

on mouseWithin
  set the scroll of cd fld "ids" to the scroll of me
end mouseWithin

on mouseLeave
  if the short name of this cd ≠ "SCSIInfo" then exit mouseLeave
  set the scroll of cd fld "ids" to the scroll of me
end mouseLeave



-- part contents for background part 38
----- text -----
39/50

-- part contents for card part 4
----- text -----
SCSI ID    SCSI Drive Info

-- part contents for background part 20
----- text -----
SCSIInfo - An XFCN to return information about a specified SCSI device.

SCSIInfo(SCSI Address, «"noDialog:"errorGlobal»)

This XFCN is similar to the SCSI Probe CDEV by Robert Polic.  It returns the type, vendor, product name, and driver version number stored by the controller in the device.  As a caveat, just because you bought a particular device from a certain company does NOT mean that their name should appear on line 2 of the result.  As is so common in this industry, companies often buy parts and put their own label on the product.  Every 45MB removable cartridge drive I have come across has Syquest as the vendor, not the company that sells the drive.

Result:Line 1 contains type of SCSI device
Line 2 contains Vendor Name
Line 3 contains Product Name
Line 4 contains driver version number